VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "dmRuntimeLog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private B_ObjectID As String
Private B_FrmName As String
Private B_Func As String
Private B_Des As String
Private B_Date As String
Private B_CN As String
Private B_CUN As String
Private B_SubSystem As String
Private B_User As String
Private B_Version As String


Public Property Let ObjectID(ByVal vData As String)
    B_ObjectID = vData
End Property

Public Property Get ObjectID() As String
    ObjectID = B_ObjectID
End Property


Public Property Let frmName(ByVal vData As String)
    B_FrmName = vData
End Property

Public Property Get frmName() As String
    frmName = B_FrmName
End Property


Public Property Let Func(ByVal vData As String)
    B_Func = vData
End Property

Public Property Get Func() As String
    Func = B_Func
End Property


Public Property Let Des(ByVal vData As String)
    B_Des = vData
End Property

Public Property Get Des() As String
    Des = B_Des
End Property


Public Property Let CN(ByVal vData As String)
    B_CN = vData
End Property

Public Property Get CN() As String
    CN = B_CN
End Property


Public Property Let CUN(ByVal vData As String)
    B_CUN = vData
End Property

Public Property Get CUN() As String
    CUN = B_CUN
End Property


Public Property Let SubSystem(ByVal vData As String)
    B_SubSystem = vData
End Property

Public Property Get SubSystem() As String
    SubSystem = B_SubSystem
End Property


Public Property Let User(ByVal vData As String)
    B_User = vData
End Property

Public Property Get User() As String
    User = B_User
End Property

Public Property Let Version(ByVal vData As String)
    B_Version = vData
End Property

Public Property Get Version() As String
    Version = B_Version
End Property


Public Property Let BillDate(ByVal vData As String)
    B_Date = vData
End Property

Public Property Get BillDate() As String
    BillDate = B_Date
End Property


